home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / cstatement.raz < prev    next >
Encoding:
Text File  |  1994-11-17  |  1.0 KB  |  39 lines
  1. /** $VER: CStatement.raz 1.0 (14.11.94)
  2.  **
  3.  ** Insère un ensemble comme pour IF, FOR, WHILE, etc... en langage C
  4.  **/
  5.  
  6. OPTIONS RESULTS
  7.  
  8. PARSE ARG statement
  9. statement = UPPER( statement )
  10.  
  11. SELECT
  12.     WHEN statement = "IF" THEN DO
  13.         'Text2Win CONVERT INDENT TEXT if ('
  14.         'Text2Win CONVERT INDENT NOCURS TEXT )\n\t{\n\t}\nelse{\n\t}'
  15.     END
  16.  
  17.     WHEN statement = "FOR" THEN DO
  18.         'Text2Win CONVERT INDENT TEXT for (i=0; i < '
  19.         'Text2Win CONVERT INDENT NOCURS TEXT ; i++)\n\t{\n\t}'
  20.     END
  21.  
  22.     WHEN statement = "WHILE" THEN DO
  23.         'Text2Win CONVERT INDENT TEXT while ('
  24.         'Text2Win CONVERT INDENT NOCURS TEXT )\n\t{\n\t}'
  25.     END
  26.  
  27.     WHEN statement = "SWITCH" THEN DO
  28.         'Text2Win CONVERT INDENT TEXT switch ('
  29.         'Text2Win CONVERT INDENT NOCURS TEXT )\n\t{\n\tcase : ; break;\n\tcase : ; break;\n\tdefault: ; break;\n\t}\n'
  30.     END
  31.  
  32.     WHEN statement = "CASE" THEN DO
  33.         'Text2Win CONVERT INDENT TEXT case '
  34.         'Text2Win CONVERT INDENT NOCURS TEXT : ; break;'
  35.     END
  36.  
  37.     OTHERWISE NOp
  38. END
  39.